v a r   f a d e C o l o r   =   # 0 0 0 ; 
 
 v a r   f a d e T i m e     =   5 0 0 ; 
 
 v a r   f a d e I n t e r v a l   =   3 0 ; 
 
 
 
 / /   pe0NeQY00S0h0k00c0f00000n0R0fH00Y00
 
 v a r   s c e n e F u n c t i o n   =   C r e d i t S c e n e ; 
 
 / /   # i n c l u d e   " C o n f i g . t x t " 
 
 / /   C r e d i t S c e n e   00000W0f00000;ubK00h:yY004XT
 
 / /   i f   ( g e t F l a g ( " C r e d i t " ) )   { 
 
 / /   	 s c e n e F u n c t i o n   =   T i t l e S c e n e ; 
 
 / /   } 
 
 / / s c e n e F u n c t i o n   =   c o n f i g ; 
 
 / / 	 	 s c e n e F u n c t i o n   =   C o n f i g S c e n e ; 
 
 
 
 / /   00j0i00h:yY00_00  G r a p h i c s   0\ObW0f00000k0R
 
 v a r   g r a p h i c s   =   n e w   G r a p h i c s ( ) ; 
 
 g r a p h i c s . s e t F i l l C o l o r ( f a d e C o l o r ) ;   / /   c l e a r   W0_0Bfn0̀ofr0-[
 
 R e n d e r e r . a d d O b j e c t ( g r a p h i c s ) ;   / /   00000L0{tY000000k0c;u0000000R
 
 
 
 / /   k0000|Tp000pe0{v2
 
 S y s t e m . a d d E v e n t L i s t e n e r ( E v e n t . E N T E R _ F R A M E ,   o n E n t e r F r a m e ) ; 
 
 
 
 / /   k0000|Tp000pe
 
 f u n c t i o n   o n E n t e r F r a m e ( ) :   v o i d 
 
 { 
 
 	 g r a p h i c s . c l e a r ( ) ; 
 
 	 g r a p h i c s . s e t T e x t A l i g n ( T e x t A l i g n . C E N T E R ) ;   / /   00000-N.Y[[0k0-[
 
 	 s c e n e F u n c t i o n ( g r a p h i c s ) ; 
 
 } 
 
 
 
 / /   000000000h:yW0f00000;ubx0wyY00
 
 f u n c t i o n   C r e d i t S c e n e ( g :   G r a p h i c s ) 
 
 { 
 
 	 A u d i o . s t o p M u s i c ( ) ; 
 
 	 / /   00;uPn000h00c;uMOn0-[
 
 	 v a r   l o g o I m a g e   =   n e w   I m a g e ( ) ; 
 
 	 l o g o I m a g e . l o a d ( " G r a p h i c s / S y s t e m / l o g o . p n g " ) ; 
 
 	 v a r   w i d t h   =   l o g o I m a g e . g e t W i d t h ( )   *   W I N _ R A T I O ; 
 
 	 v a r   h e i g h t   =   l o g o I m a g e . g e t H e i g h t ( )   *   W I N _ R A T I O ; 
 
 	 v a r   x   =   ( R e n d e r e r . g e t W i d t h ( )     -   w i d t h ) / 2 ; 
 
 	 v a r   y   =   ( R e n d e r e r . g e t H e i g h t ( )   -   h e i g h t ) / 2 ; 
 
 
 
 	 / /   00000000000000000Y00
 
 	 g . d r a w I m a g e ( l o g o I m a g e ,   n e w   R e c t a n g l e ( x ,   y ,   w i d t h ,   h e i g h t ) ) ; 
 
 	 f a d e I n ( f a d e T i m e ,   f a d e C o l o r ) ; 
 
 	 w a i t F r a m e ( f a d e I n t e r v a l ,   t r u e ) ; 
 
 	 f a d e O u t ( f a d e T i m e ,   f a d e C o l o r ) ; 
 
 	 g . c l e a r ( ) ; 
 
 	 w a i t F r a m e ( f a d e I n t e r v a l ,   t r u e ) ; 
 
 
 
 	 / /   000000c;u
 
 	 v a r   c r e d i t T e x t   =   " G a m e   D e s i g n e \ n N o a h " ; 
 
 	 g . s e t F o n t S i z e ( F O N T _ S I Z E   *   1 . 5 ) ; 
 
 	 g . d r a w S t r i n g ( c r e d i t T e x t ,   R e n d e r e r . g e t W i d t h ( ) / 2 ,   R e n d e r e r . g e t H e i g h t ( ) / 2 - F O N T _ S I Z E ) ; 
 
 	 / /   
 
 	 v a r   c o p y r i g h t T e x t   =   " C o p y r i g h t ( c )   2 0 0 7   D n a s o f t \ n A l l   R i g h t   R e s e r v e d . " ; 
 
 	 g . s e t F o n t S i z e ( F O N T _ S I Z E   *   0 . 8 ) ; 
 
 	 g . d r a w S t r i n g ( c o p y r i g h t T e x t ,   R e n d e r e r . g e t W i d t h ( ) / 2 ,   R e n d e r e r . g e t H e i g h t ( ) - F O N T _ S I Z E * 3 ) ; 
 
 
 
 	 / /   00000000000000Y00
 
 	 f a d e I n ( f a d e T i m e ,   f a d e C o l o r ) ; 
 
 	 w a i t F r a m e ( f a d e I n t e r v a l ,   t r u e ) ; 
 
 	 f a d e O u t ( f a d e T i m e ,   f a d e C o l o r ) ; 
 
 	 g . c l e a r ( ) ; 
 
 
 
 	 / /   000pe00000000pek0R0fH00
 
 	 s c e n e F u n c t i o n   =   T i t l e S c e n e ; 
 
 } 
 
 
 
 / /   0000;ub
 
 f u n c t i o n   T i t l e S c e n e ( g :   G r a p h i c s ) 
 
 { 
 
 	 A u d i o . p l a y M u s i c ( " t i t l e . m i d " ) ; 
 
 	 / /   0000;uPn000h00c;uMOn0-[
 
 	 v a r   w i d t h   =   F O N T _ S I Z E * 2 4 ; 
 
 	 v a r   i m a g e   =   n e w   I m a g e ( ) ; 
 
 	 i m a g e . l o a d ( " G r a p h i c s / S y s t e m / t i t l e . p n g " ) ; 
 
 	 v a r   d e s t   =   n e w   R e c t a n g l e ( ( R e n d e r e r . g e t W i d t h ( ) - w i d t h ) / 2 ,   F O N T _ S I Z E * 3 ,   w i d t h ,   8 0 ) ; 
 
 	 g . d r a w I m a g e ( i m a g e ,   d e s t ) ; 
 
 	 
 
 	 / / 
 
 	 v a r   t i t l e T e x t   =   
 
 	 	 " - - - \ n " 
 
 	 	 " - [ Y O U R   S U B T I T L E ] - \ n " 
 
 	 	 " - - - \ n \ n " 
 
 	 	 " W e l c o m e   t o \ n " 
 
 	 	 " t h e   w o r l d   o f   [ t i t l e ] " ; 
 
 	 
 
 	 g . s e t F o n t S i z e ( F O N T _ S I Z E * 1 . 3 ) ; 
 
 	 g . d r a w S t r i n g ( t i t l e T e x t ,   R e n d e r e r . g e t W i d t h ( ) / 2 ,   R e n d e r e r . g e t H e i g h t ( ) / 2 - F O N T _ S I Z E * 3 ) ; 
 
 	 
 
 / / 	 / / 
 
 	 v a r   i   =   m e n u ( " S t a r t   g a m e \ n S e l e c t   s w i t c h " ,   ( R e n d e r e r . g e t W i d t h ( ) - F O N T _ S I Z E * 9 ) / 2 ,   R e n d e r e r . g e t H e i g h t ( ) - F O N T _ S I Z E * 6 ) ; 
 
 	 t r a c e ( i ) ; 
 
 	 i f   ( i   = =   0 )   { 
 
 	 	 c h a n g e S c e n e ( " T o w n " ) ; 
 
 	 	 e x i t ( ) ; 
 
 	 } 
 
 	 e l s e   i f   ( i   = =   1 )   { 
 
 / /   	 	 s c e n e F u n c t i o n   =   C o n f i g S c e n e ; 
 
 	 } 
 
 } 
 
 